home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-2 / tests.sit / tests / stand / recent2.out < prev    next >
Encoding:
Text File  |  1992-12-08  |  2.3 KB  |  121 lines  |  [TEXT/????]
  1. oops -- function char(-65536) 
  2. oops -- function char(-337) 
  3. oops -- function char(-1) 
  4. oops -- function char(256) 
  5. oops -- function char(4713) 
  6. oops -- function char(65536) 
  7. oops -- function char(123456) 
  8. oops -- function char("abc") 
  9. oops -- function char(&lcase) 
  10. oops -- function char(&errout) 
  11. oops -- function char(list_1(0)) 
  12. oops -- function ord("") 
  13. oops -- function ord("ab") 
  14. oops -- function ord("antidisestablishmentarianism") 
  15. oops -- function ord(47) 
  16. oops -- function ord(&output) 
  17. oops -- function ord(table_1(0)) 
  18. getenv failed
  19. getenv failed
  20. getenv failed
  21. getenv failed
  22. &ascii
  23. &cset
  24. &digits
  25. '123456789'
  26. &letters
  27. &letters
  28. &lcase
  29. list_2(1)
  30. list_3(2)
  31. list_4(3)
  32. list_5(4)
  33. list_6(0)
  34. p(1):
  35.    image(a):1
  36.    image(b):&null
  37.    image(c):list_9(0)
  38.    every write("\t", !c):
  39. p(1, 2):
  40.    image(a):1
  41.    image(b):2
  42.    image(c):list_10(0)
  43.    every write("\t", !c):
  44. p(1, 2, 3):
  45.    image(a):1
  46.    image(b):2
  47.    image(c):list_11(1)
  48.    every write("\t", !c):
  49.     3
  50. p(1, 2, 3, 4, 5):
  51.    image(a):1
  52.    image(b):2
  53.    image(c):list_12(3)
  54.    every write("\t", !c):
  55.     3
  56.     4
  57.     5
  58. q(1, 2):
  59.    every write("\t", !a):
  60.     1
  61.     2
  62. t := table("default") --> table_2(0)
  63.    *t --> 0
  64.    t["xyz"] --> "default"
  65.    member(t, "xyz") --> failure
  66.    contents of t:
  67.  
  68. insert(t, 3, 4) --> table_2(1)
  69. insert(t, "xyz", "abc") --> table_2(2)
  70. insert(t, &digits) --> table_2(3)
  71.    *t --> 3
  72.    t["xyz"] --> "abc"
  73.    member(t, "xyz") --> "xyz"
  74.    contents of t:
  75.     3 : 4
  76.     "xyz" : "abc"
  77.     &digits : &null
  78.  
  79. t["xyz"] := "new value" --> "new value"
  80.    *t --> 3
  81.    t["xyz"] --> "new value"
  82.    member(t, "xyz") --> "xyz"
  83.    contents of t:
  84.     3 : 4
  85.     "xyz" : "new value"
  86.     &digits : &null
  87.  
  88. insert(t, "xyz", "def") --> table_2(3)
  89.    *t --> 3
  90.    t["xyz"] --> "def"
  91.    member(t, "xyz") --> "xyz"
  92.    contents of t:
  93.     3 : 4
  94.     "xyz" : "def"
  95.     &digits : &null
  96.  
  97. delete(t, "xyz") -- > table_2(2)
  98.    *t --> 2
  99.    t["xyz"] --> "default"
  100.    member(t, "xyz") --> failure
  101.    contents of t:
  102.     3 : 4
  103.     &digits : &null
  104.  
  105. delete(t, "xyz") -- > table_2(2)
  106.    *t --> 2
  107.    t["xyz"] --> "default"
  108.    member(t, "xyz") --> failure
  109.    contents of t:
  110.     3 : 4
  111.     &digits : &null
  112.  
  113. t := table("default") --> table_3(0)
  114. t["one"] := 1 --> 1
  115. t[] --> "default"
  116. x := r1([t, [1, [2, 3]]]) --> record r1_1(1)
  117. x[1, 1, "one"] --> 1
  118. x[1, 2, 2, 2] --> 3
  119. x[1, 2] := ["abcd", "defg"] --> list_23(2)
  120. x[1, 2, 2, 2] --> "e"
  121.